﻿Module Module1

    Sub Main()

        Dim num, articulo, opcion, articulomay, articulomen As String
        Dim cont As Integer
        Dim num1, num2, num3 As Decimal

        Do

            cont += 1
            Console.Write("Artículo " & cont & " : ")
            articulo = Console.ReadLine()


            Do

                Console.Write("Precio : ")
                num = Console.ReadLine()

            Loop Until IsNumeric(num)

            num1 = Decimal.Parse(num)


            Do

                Console.Write("Otro artículo <S/N>: ")
                opcion = Console.ReadLine()

            Loop Until opcion.ToUpper = "N" Or opcion.ToUpper = "S"





            If (num1 > num2) Then

                num2 = num1
                articulomay = articulo
                num3 = num2
            ElseIf (num1 < num3) Then
                num3 = num1
                articulomen = articulo
            End If



        Loop Until opcion.ToUpper = "N"

        Console.WriteLine("El artículo más caro es : " & articulomay)
        Console.WriteLine("El artículo más économico es : " & articulomen)

        Console.ReadKey()








    End Sub

End Module
